#!/usr/bin/perl
open(FLUX,"joueurs.txt");
#$lastEquipe="";
while ($ligne=<FLUX>)
{
	chomp($ligne);
	if ($ligne=~/(.+):/s)
	{
	#	$lastEquipe=$1;
		print "\n$1|";
	}
	elsif ($ligne=~/([^:]+)\s+([^:\n]+)/s)
	{
	#	print "joueur$lastEquipe\t$2\t*\n";
	 print "$ligne|";
		
	}
	else
	{
	#	print "joueur$lastEquipe\t$ligne\t*\n";
		print "$ligne|";
	}
		
	
}
close(FLUX);